Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d7/jbhost10.arc/JBHOST.MAC

Text File | 1991-08-28 | 12.9 KB | 440 lines

Welcome to the COMMO HOST MODE version 1.00
Written by Jeff Bishop
[phone]

The next section of this macro contains all of the setup variables
required.  Change the name and passwords before running the host.
To use Zmodem or Ymodem make sure that DSZ.COM is in your DOS path.
Xmodem is internal to COMMO.

Some external programs are required.  These are:  PKUNZIP.EXE, ARJ.EXE,
DOORWAY.EXE, and DSZ.COM.  Please make sure that
the options you use from the menu have the supporting programs, or else
the host will blow up.

Jeff Bishop
August 28, 1991

                                ***  Set these items ***
{:setup}   {setv user,Jeff}          YOUR NAME
           {setv pass,pword}         YOUR PASSWORD
           {setv spass,shell}        SHELL PASSWORD
           {setv epass,event}        Event shutdown password
           {setv shutpass,shutdown}  Regular shutdown password
           {setv pdir,c:\commo\}     DSZ DRIVER DIRECTORY
           {setv pname,DSZ.COM}      DSZ program name (or GSZ.EXE, etc.)
           {setv minutes,0}          Allowed minute online (0 means no limit)
           {sete quit}

{:HOST}    {spoc Y}
           {send ^MATE0^M}
           {pause 3}
           {local n}
           {clear}
           {disp 1,1,,^(COMMO^) is in host mode.}
           {disp 2,1,,Press <Esc> to halt the host..}
           {disp 3,1,,Type 'sysop' for local mode.}
           {disp 4,1,,Type 'QUIT' to exit host.}
           {disp 5,1}
{:rng1}    {SETG 0,,L}
           {setv rng}
           {GETS rng,5,rng1}
           {COMP rng,sysop}
           {IFCO sysop}
           {COMP rng,ring}
           {IFCO rang}
           {comp rng,quit}
           {ifco quit}
           {goto host}
{:rang}    {SEND ^M~ATA^M}
           {pause 9}
           {setv rng}
           {goto getuser}
{:sysop}   {setv rng}
           {spoc N}
{:getuser} {elap}
           {local y}
           {call cls}
           {send Welcome to the ^(COMMO^) host mode^M^J^M^J}
{:ul}      {setv tmp} {setv y,0}
           {setg 30,tout,y,^M^J}
{:t0}      {send username: }
           {gets tmp,20}
           {comp tmp,%user}
           {ifco gpass}
           {incr Y}
           {comp-ge y,3}
           {ifco wuser}
           {send wrong, tty again^M^J}
           {setv tmp}
           {goto t0}
{:wuser}   {setv tmp} {setv y}
           {call cls}
           {send Wrong username!}
           {goto host}
{:gpass}   {setv y,0}
{:t1}      {send password: }
           {call getpass}
           {comp tmp,%pass}
           {ifco menu}
           {incr Y}
           {comp Y,3}
           {ifco-ge wpass}
           {send ^M^JTry again^m^j}
           {goto t1}
{:wpass}   {setv y}
           {send wrong password!}
           {goto host}
{:menu}    {comp minutes,0}
           {ifco menu2}
           {comp minutes,%_elap}
           {ifco-le tout}
{:menu2}   {call cls}
           {send ^(COMMO^) host mode Version 1.00 main menu^M^J^M^J}
           {send (A)rj file view    (B)link transfers^M^J}
           {send (C)hange directory (D)ownload a file^M^J}
           {send (E)vent shutdown   (F)ile list^M^J}
           {send (G)ood bye         (H)elp^M^J}
           {send (L)ocal Shell      (P)age the sysop^M^J}
           {send (S)hell to DOS     (T)ype a file^M^J}
           {send (U)pload a file    (Z)ip file view^M^J}
           {send (=)change drive    (!)shut down host^M^J^M^J}
           {send Current date:  %_dat  %_tim^M^J^M^J}
           {send You have been online for %_elap minutes^M^J}
           {comp minutes,0}
           {ifco menu3}
           {setv tmp,%minutes}
           {decr tmp,%_elap}
           {send ^M^JTime remaining online is %tmp% minutes^M^J}
           {setv tmp}
{:menu3}   {send ^M^JYour Choice? }
           {setv option}
           {setg 60,tout,y,^m^j}
           {gets-h option,1}
           {comp option}
           {ifco menu}
           {comp option,A}
           {ifco arjv}
           {comp option,B}
           {ifco blink}
           {comp option,C}
           {ifco chdir}
           {comp option,D}
           {ifco dwnload}
           {comp option,E}
           {ifco event}
           {comp option,F}
           {ifco dir}
           {comp option,G}
           {ifco bye}
           {comp option,H}
           {ifco help}
           {comp option,L}
           {ifco lshell}
           {comp option,P}
           {ifco page}
           {comp option,S}
           {ifco shell}
           {comp option,T}
           {ifco type}
           {comp option,U}
           {ifco upload}
           {comp option,z}
           {ifco zipv}
           {comp option,=}
           {ifco chdrv}
           {comp option,!}
           {ifco shut}
           {goto wcerr}
{:arjv}    {setv alister,arj l} {goto vlist}
{:blink}   {call cls} {call fname}
           {comp file}
           {ifco menu}
           {send ^m^jsending file now..^m^j}
           {ascii-s0 %file}
           {setv file}
           {call pk}
           {goto menu}
{:chdir}   {setv tmp}
           {send ^m^jDirectory Name: }
           {gets tmp,12}
           {comp tmp}
           {ifco menu}
           {exec cd %tmp}
           {send ^m^jcurrent Directory is now %tmp%^m^j}
           {setv tmp}
           {call pk}
           {goto menu}
{:chdrv}   {setv tmp}
           {send ^m^jDrive: }
           {gets tmp,2}
           {comp tmp}
           {ifco menu}
           {exec %tmp}
           {send ^m^jcurrent Drive is now %tmp%^m^j}
           {setv tmp}
           {call pk}
           {goto menu}
{:dwnload} {call tmenu} {setv option}
           {setg 60,menu,y,^m^j}
           {gets-h option,1}
           {comp option,X}
           {ifco dlxm}
           {comp option,Y}
           {ifco dlym}
           {comp option,Z}
           {ifco dlzm}
           {goto wcerr}
{:dlxm}    {call fname}
           {comp file}
           {ifco menu}
           {send ^m^jsending file now..^m^j}
           {sxmodem %file}
           {ifer 1,terr}
           {setv file}
           {call pk}
           {goto menu}
{:DLYM}    {setv option, port %_port sb %file} {goto dltrans}
{:DLZM}    {setv option, port %_port sz -mrr %file}
{:dltrans} {call fname}
           {comp file}
           {ifco menu}
           {send ^m^jsending file now...^m^j}
           {exec-d %pdir%%pname% %option}
           {ifer 1,terr}
           {setv option}
           {setv file}
           {call pk}
           {goto menu}
{:dir}     {send ^m^jpreparing the directory listing, please wait.^m^j}
           {exec dir > %_hom%dir$$$}
           {setv file,%_hom%dir$$$}
           {call dispfil}
           {exec del %_hom%dir$$$}
           {setv file}
           {goto menu}
{:event}   {setv y,0}
           {call cls}
{:t4}      {send Password: }
           {call getpass}
           {send ^m^j}
           {comp tmp,%epass}
           {ifco devent}
           {incr Y}
           {comp Y,3}
           {ifco wevpass}
           {send ^M^JTry again^m^j}
           {goto t4}
{:wevpass} {setv y}
           {send ^Gwrong password!}
           {call pk}
           {goto menu}
{:devent}  {call cls}
           {send Enter the time in 24-hour format that the^M^J}
           {send host should be back online: }
           {setv tmp}
           {setg 45,tout,Y}
           {gets tmp,20}
           {comp tmp}
           {ifco endev}
           {send ^M^JThe host will be down until %tmp^M^J}
           {hangup y}
           {pause 3}
           {hold %tmp}
           {goto host}
{:endev}   {setv Y} {goto menu}
{:bye}     {send ^m^jgood bye.^m^j}
           {hang Y}
           {goto host}
{:help}    {setv file,%_hom%jbhost.hlp}
           {call dispfil}
           {setv file}
           {goto menu}
{:lshell}  {ifca lsh1,lsh2}
{:lsh1}    {call cls}
           {send ^M^J^GStand by, sysop shelling to DOS ...}
{:lsh2}    {shell}
           {call pk}
           {goto menu}
{:page}    {call cls}
           {SEND Type '/EXIT' to exit chat mode^M^J^M^JHi %user^M^J}
{:CT2}     {setv line}
           {gets line,78}
           {comp line,/EXIT}
           {ifco dchat,ct2}
{:dchat}   {setv line}
           {goto menu}
{:shell}   {setv y,0}
           {call cls}
{:t2}      {send Password: }
           {call getpass}
           {send ^m^j}
           {comp tmp,%spass}
           {ifco dshel}
           {incr Y}
           {comp Y,3}
           {ifco whpass}
           {send ^M^JTry again^m^j}
           {goto t2}
{:whpass}  {setv y}
           {setv tmp}
           {send ^Gwrong password!}
           {call pk}
           {goto menu}
{:dshel}   {send ^M^Jshelling to DOS^M^J}
           {send Type 'EXIT' to return to host}
           {exec DOORWAY com%_por% /M:60 /S:* /K:0 /G:ON /A:ON /V:D^U /b:Z /C:DOS}
           {setv y}
           {setv tmp}
           {call pk}
           {goto menu}
{:shut}    {setv y,0}
           {call cls}
{:t3}      {send Password: }
           {call getpass}
           {send ^m^j}
           {comp tmp,%shutpass}
           {ifco dshut}
           {incr Y}
           {comp Y,3}
           {ifco wshpass}
           {send ^M^JTry again^m^j}
           {goto t3}
{:wshpass} {setv y}
           {setv tmp}
           {send ^M^J^Gwrong password!}
           {call pk}
           {goto menu}
{:dshut}   {setv y}
           {setv tmp}
           {goto quit}
{:type}    {call fname}
           {comp file}
           {ifco menu}
           {call dispfil}
           {goto menu}
{:upload}  {setv option}
           {call tmenu}
           {setg 60,menu,y,^m^j}
           {gets-h option,1}
           {comp option,X}
           {ifco ulxm}
           {comp option,Y}
           {ifco ulym}
           {comp option,Z}
           {ifco ulzm}
           {goto wcerr}
{:ulxm}    {call cls}
           {send Name of file to upload: }
           {gets file,40}
           {comp file}
           {ifco menu}
           {send ^m^jReceiving file now...^m^j}
           {rxmodem %file}
           {ifer 1,terr}
           {setv file}
           {call pk}
           {goto menu}
{:ulym}    {setv option, port %_port rb}
           {goto ultrans}
{:ulzm}    {setv option, port %_port rz -m}
{:ultrans} {send ^m^jReceiving file now...^m^j}
           {exec-d %pdir%%pname% %option}
           {ifer 1,terr}
           {setv option}
           {call pk}
           {goto menu}
{:zipv}    {setv alister,pkunzip -v}
{:vlist}   {call fname}
           {comp file}
           {ifco menu}
           {send ^m^jpreparing the listing.^m^j}
           {exec %alister% %file% > arclist.$$$}
           {setv file,arclist.$$$}
           {call dispfil}
           {exec del arclist.$$$}
           {setv alister}
           {setv file}
           {goto menu}
{:fname}   {setv file}
           {send ^M^jFilename: }
           {gets file,40}
           {comp file}
           {ifco yfile}
           {ifexist %file,yfile,nfile}
{:yfile}   {return}
{:nfile}   {send ^m^jFile not found!.^m^j}
           {call pk}
           {goto menu}
{:tmenu}   {call cls}
           {send (X)modem (Y)modem (Z)modem^M^J^M^jChoice: }
           {return}
{:tout}    {send ^m^jTimed out.^m^j}
           {hangup y}
           {pause 3}
           {goto host}
{:cls}     {SEND ^[[2J^[[1;1H} {RETURN}
{:pk}      {SEND ^M^JPress Any Key to continue ...}
           {setg 120,tout}
           {gets-H tmp,1}
           {setv tmp}
           {SEND ^M^J}
           {RETURN}
{:dispfil} {setv x,0}
           {call cls}
           {ropen %file,rd_end}
{:disr}    {setv line}
           {read line}
           {send %line%^M^J}
           {incr x}
           {comp x,22}
           {ifco np}
           {goto disr}
{:np}      {SEND ^M^JPress [S] to stop, any other key to continue ...}
           {setg 120,tout}
           {gets-H tmp,1}
           {comp tmp,s}
           {ifco ,NP1}
           {setv x}
           {setv line}
           {rclose}
           {call cls}
           {return}
{:NP1}     {setv x,0}
           {call cls}
           {goto disr}
{:rd_end}  {setv line}
           {setv x}
           {call pk}
           {call cls}
           {return}
{:getpass} {SETV tmp}
           {setg 120,tout,n}
           {gets-H TMP,20,GP2}
{:GP2}     {RETURN}
{:terr}    {call cls}
           {send ^M^J^M^J^Gerror during transfer}
           {call pk}
           {goto menu}
{:wcerr}   {setv option}
           {send ^M^J^GWrong Entry}
           {call pk}
           {goto menu}
{:quit}    {call cls}
           {send Shutting down the host}
           {ifca shang,go_on}
{:shang}   {elap}
           {hang Y}
           {pause 3}
{:go_on}   {init} {local n}
           {setv user}
           {setv pass}
           {setv Epass}
           {setv spass}
           {setv shutpass}
           {setv minutes}
           {setv option}
           {setv pdir}
           {setv pname}
           {macload commo.mac}